home *** CD-ROM | disk | FTP | other *** search
/ PC Answers 2002 January / PC Answers January 2002.7z / PC Answers January 2002.bin / graphics / freepixl / _SETUP.1 / Example2.pxl < prev    next >
Text File  |  2000-12-23  |  756b  |  21 lines
  1. {     Sample PiXCL code: example #2 }
  2.  
  3. Initialize:
  4.             WinGetActive(Win$)    {Get the default name of the current window.}
  5.             UseCoordinates(PIXEL)    {Set the co-ordinate mode. This is optional.}
  6.  
  7.            WinLocate(Win$,200,100,500,320,Res) {Put the window where you want it.}
  8.     
  9.     InfoMenu(REMOVE)    {take out the default About item.}
  10.     WaitInput(100)        {Let windows catch up. Mandatory}
  11.             SetMenu("Exit!",Leave,    {create a very simple menu.}
  12.                         ENDPOPUP)
  13.  
  14.             DrawText(7,20,"Window without Info menu item")    {write this text on to the window.}
  15.  
  16. Wait_for_Input:        {This is the "idle" loop where the program waits.}
  17.             WaitInput()    {wait until an event occurs.}
  18.  
  19. Leave:        {terminate the program.}
  20.             End
  21.